home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / DELPHI32 / GRIDS / STRGRDEX / UNIT1.PAS < prev   
Pascal/Delphi Source File  |  1996-10-22  |  2KB  |  86 lines
  1. unit Unit1;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   StdCtrls, Grids, strgrdex;
  8.  
  9. type
  10.   TfrmMain = class(TForm)
  11.     cmdGetStatus: TButton;
  12.     cmdSelect: TButton;
  13.     cmdUnselect: TButton;
  14.     cmdShowSelectCount: TButton;
  15.     cmdRefresh: TButton;
  16.     cmdExit: TButton;
  17.     gridDemo: TStringGridEx;
  18.     procedure cmdGetStatusClick(Sender: TObject);
  19.     procedure cmdUnselectClick(Sender: TObject);
  20.     procedure cmdSelectClick(Sender: TObject);
  21.     procedure FormCreate(Sender: TObject);
  22.     procedure cmdShowSelectCountClick(Sender: TObject);
  23.     procedure cmdRefreshClick(Sender: TObject);
  24.     procedure cmdExitClick(Sender: TObject);
  25.   private
  26.     { Private declarations }
  27.   public
  28.     { Public declarations }
  29.   end;
  30.  
  31. var
  32.   frmMain: TfrmMain;
  33.  
  34. implementation
  35.  
  36. {$R *.DFM}
  37.  
  38. procedure TfrmMain.cmdGetStatusClick(Sender: TObject);
  39. begin
  40.      if gridDemo.GetSelectRow(1)=true then
  41.        ShowMessage('1st Row Is Selected')
  42.      else
  43.        ShowMessage('1st Row Is Not Selected');
  44. end;
  45.  
  46. procedure TfrmMain.cmdUnselectClick(Sender: TObject);
  47. begin
  48.      gridDemo.SetSelectRow(1,False);
  49. end;
  50.  
  51. procedure TfrmMain.cmdSelectClick(Sender: TObject);
  52. begin
  53.      gridDemo.SetSelectRow(1,true);
  54. end;
  55.  
  56. procedure TfrmMain.FormCreate(Sender: TObject);
  57. var
  58.    idx:integer;
  59. begin
  60.      gridDemo.Align:=alLeft;
  61.      gridDemo.RowCount:=30;
  62.      For idx:= 0 to 29 do
  63.          gridDemo.Cells[0,idx]:=IntToStr(idx);
  64.      gridDemo.MultiSelect:=True;
  65.      gridDemo.Cells[3,3]:='Hello';
  66.      gridDemo.Color:=clBtnFace;
  67.      gridDemo.CTL3D:=True;
  68. end;
  69.  
  70. procedure TfrmMain.cmdShowSelectCountClick(Sender: TObject);
  71. begin
  72.      ShowMessage(IntToStr(gridDemo.GetSelectRowCount));
  73. end;
  74.  
  75. procedure TfrmMain.cmdRefreshClick(Sender: TObject);
  76. begin
  77.      gridDemo.Refresh;
  78. end;
  79.  
  80. procedure TfrmMain.cmdExitClick(Sender: TObject);
  81. begin
  82.      Close;
  83. end;
  84.  
  85. end.
  86.